home *** CD-ROM | disk | FTP | other *** search
/ Pro One: Netcracker Netscape Navigator / ProOne: Netcracker Netscape Navigator.iso / pc / nc / nct02020.geo / 00025.ls < prev    next >
Encoding:
Text File  |  1997-03-19  |  1.7 KB  |  99 lines
  1. on startMovie
  2.   initLesson()
  3.   CheckForTagWd()
  4.   Set_NEXT(1)
  5.   Set_CDcounter(2)
  6. end
  7.  
  8. on stopMovie
  9.   sound stop 1
  10.   unLoad()
  11.   setEmptyCursor()
  12. end
  13.  
  14. on GoNext
  15.   if not get_Disabled() then
  16.     sound stop 2
  17.     if Get_NEXT() < 7 then
  18.       go("t" & Get_NEXT())
  19.     else
  20.       GoNextMovie()
  21.       exit
  22.     end if
  23.     Set_NEXT(Get_NEXT() + 1)
  24.   end if
  25. end
  26.  
  27. on TheinitCursor
  28.   initCursorCastNum()
  29.   initCursorList(1)
  30.   set CursorCastNum to getCursor(2)
  31.   cursor([CursorCastNum, CursorCastNum + 1])
  32. end
  33.  
  34. on GoNextMovie
  35.   PlaySound("GOSOUND.SO1")
  36.   SaveHilite()
  37.   Add_CDcounter(1)
  38.   set cdNum to Get_CDcounter()
  39.   set movieName to item cdNum of Get_CurrentSnakeScreens()
  40.   go("INIT" & Get_ScreenSubject(), movieName & ".GEO")
  41. end
  42.  
  43. on checkScreenStatus
  44.   CheckRollOver()
  45.   CheckSnakeStatus()
  46.   go(the frame)
  47. end
  48.  
  49. on BlinkNext
  50.   if (the timer > getTimer()) and not soundBusy(2) then
  51.     startTimer()
  52.     if the name of cast the castNum of sprite get_NEXTSprite() = "NEXT" then
  53.       set the castNum of sprite get_NEXTSprite() to the number of cast "NEXT_E"
  54.     else
  55.       set the castNum of sprite get_NEXTSprite() to the number of cast "NEXT"
  56.     end if
  57.   end if
  58. end
  59.  
  60. on PressBtn theBtn
  61.   Set_PressedLast(theBtn)
  62.   switchButt(Get_AnsSprite() + theBtn - 1, "down" & theBtn, "HandleBtn" && theBtn)
  63. end
  64.  
  65. on set_MarkSprite theNum
  66.   global MarkSprite
  67.   set MarkSprite to theNum
  68. end
  69.  
  70. on Get_MarkSprite
  71.   global MarkSprite
  72.   return MarkSprite
  73. end
  74.  
  75. on setTimer int
  76.   global theTime
  77.   set theTime to int
  78. end
  79.  
  80. on getTimer
  81.   global theTime
  82.   return theTime
  83. end
  84.  
  85. on DisableBTNS
  86.   global DisableMode
  87.   set DisableMode to 1
  88. end
  89.  
  90. on EnableBtns
  91.   global DisableMode
  92.   set DisableMode to 0
  93. end
  94.  
  95. on get_Disabled
  96.   global DisableMode
  97.   return DisableMode
  98. end
  99.